home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
datamaker dec
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
34 lines
100 poke53280, 0:poke53281, 0:print"[147]";
101 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
102 print"[152] [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211] "
103 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
104 print"[172] [146][187]"
105 print" "
106 print" DECIMAL[160]DATA[160]MAKER "
107 print"[163][163][163][163][163][163][163][163][163][160] [146][163][163][163][163][163][163][163][163][163][160] By ";
108 print" [160]"
109 print"[163][163][163][163][163][163][163][163][163] [146][163][163][163][163][163][163][163][163][163] David Pankur";
110 print"st [160]"
111 print"[163][163][163][163][163][163][163][163][163] [160][146][163][163][163][163][163][163][163][163][163] ";
112 print" "
113 print"[188] [146][190]"
114 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
115 print"[152] PRESS SPACE[160]TO[160]CONTINUE "
116 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
120 geta$:ifa$<>" "then120
200 poke53280, 0:poke53281, 0:print"[147]";
204 print"[206][207][212][201][195][197]:[155][207]nce[158][196]atamaker [196]ec[155]is"
205 print"activatedyouwillhaveto"
206 print"reboot[158]LOADSTAR[155]toreturn"
207 print"tothemenusystem."
208 print"[154][196]oyouwanttocontinue? ([217]/[206])"
210 geta$:ifa$="[217]"ora$="y"then300
230 ifa$="[206]"ora$="n"then400
250 goto 210
300 print"[147]":load"datamaker d",8
400 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
401 ifer<>63 then print"[147]":end
405 print"[147][144]load"chr$(34)"one-screen winners"chr$(34)",8"
410 print"run"
420 poke631,13:poke632,13:poke198,2:end